R Notebook

str(dat)

Classes ‘data.table’ and 'data.frame':  196 obs. of  41 variables:
 $ rank         : int  1 NA NA NA 45 NA 95 17 87 73 ...
 $ bib          : int  1 2 3 4 5 6 7 8 9 10 ...
 $ name         : chr  "SAGAN Peter" "BASKA Erik" "CANECKY Marek" "KOLAR Michal" ...
 $ nat          : chr  "SVK" "SVK" "SVK" "SVK" ...
 $ Lead In time : chr  "+7:55" "+7:55" "+7:55" "+7:55" ...
 $ Lead In pos  : int  85 99 36 119 179 123 117 88 92 20 ...
 $ Lead In speed: num  37.6 37.6 37.6 37.6 37.6 ...
 $ Lap2 time    : chr  "+6:31" "+6:31" "+6:31" "+6:31" ...
 $ Lap2 pos     : int  77 159 71 85 130 143 19 66 95 17 ...
 $ Lap2 speed   : num  38.2 38.2 38.2 38.2 38.2 ...
 $ Lap3 time    : chr  "+5:55" "+5:55" "+5:55" "+5:55" ...
 $ Lap3 pos     : int  116 180 30 181 155 152 132 80 82 18 ...
 $ Lap3 speed   : num  38.4 38.4 38.4 38.4 38.4 ...
 $ Lap4 time    : chr  "+4:44" "+4:44" "+4:44" "+4:44" ...
 $ Lap4 pos     : int  95 33 35 96 99 145 140 73 90 17 ...
 $ Lap4 speed   : num  38.7 38.7 38.7 38.7 38.7 ...
 $ Lap5 time    : chr  "+4:36" "+4:36" "+4:36" "+4:36" ...
 $ Lap5 pos     : int  90 153 147 135 179 154 163 84 190 17 ...
 $ Lap5 speed   : num  39 39 39 39 39 ...
 $ Lap6 time    : chr  "+3:06" "+3:06" "+3:06" "+3:06" ...
 $ Lap6 pos     : int  81 128 60 78 163 129 119 46 114 127 ...
 $ Lap6 speed   : num  39.2 39.2 39.2 39.2 39.2 ...
 $ Lap7 time    : chr  "+2:43" "+2:43" "+2:43" "+2:43" ...
 $ Lap7 pos     : int  106 137 107 102 133 141 26 20 30 25 ...
 $ Lap7 speed   : num  39.4 39.4 39.4 39.4 39.4 ...
 $ Lap8 time    : chr  "+0" "+0" "+0" "+0" ...
 $ Lap8 pos     : int  142 147 119 140 160 179 15 19 23 13 ...
 $ Lap8 speed   : num  40 40 40 40 40 ...
 $ Lap9 time    : chr  "+43" "+43" "+43" "+43" ...
 $ Lap9 pos     : int  99 125 146 151 152 NA 32 46 53 31 ...
 $ Lap9 speed   : num  40.3 40.3 40.3 40.3 40.3 ...
 $ Lap10 time   : chr  "+35" "+9:59" "+9:59" "+1:34" ...
 $ Lap10 pos    : int  80 151 152 139 96 NA 27 30 49 21 ...
 $ Lap10 speed  : num  40.6 39.5 39.5 40.5 40.6 ...
 $ Lap11 time   : chr  "+0" "" "" "+7:19" ...
 $ Lap11 pos    : int  58 NA NA 134 62 NA 75 17 93 4 ...
 $ Lap11 speed  : num  41 NA NA 40.2 41 ...
 $ Finish time  : chr  "6:28:11" "" "" "" ...
 $ Finish pos   : int  1 NA NA NA 45 NA 95 17 87 73 ...
 $ Finish speed : num  41.3 NA NA NA 41.1 ...
 $ V41          : logi  NA NA NA NA NA NA ...
 - attr(*, ".internal.selfref")=<externalptr> 

Wide format, let’s melt for lap positions and speed

(pplotly <- ggplotly(country_pos))

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
replacing previous import by ‘shiny::includeHTML’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.shiny.tag’ when loading ‘crosstalk’replacing previous import by ‘shiny::code’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeScript’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeMarkdown’ when loading ‘crosstalk’replacing previous import by ‘shiny::tags’ when loading ‘crosstalk’replacing previous import by ‘shiny::is.singleton’ when loading ‘crosstalk’replacing previous import by ‘shiny::withTags’ when loading ‘crosstalk’replacing previous import by ‘shiny::img’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendAttributes’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.shiny.tag.list’ when loading ‘crosstalk’replacing previous import by ‘shiny::knit_print.html’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendChild’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeCSS’ when loading ‘crosstalk’replacing previous import by ‘shiny::br’ when loading ‘crosstalk’replacing previous import by ‘shiny::singleton’ when loading ‘crosstalk’replacing previous import by ‘shiny::span’ when loading ‘crosstalk’replacing previous import by ‘shiny::a’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagList’ when loading ‘crosstalk’replacing previous import by ‘shiny::strong’ when loading ‘crosstalk’replacing previous import by ‘shiny::tag’ when loading ‘crosstalk’replacing previous import by ‘shiny::p’ when loading ‘crosstalk’replacing previous import by ‘shiny::validateCssUnit’ when loading ‘crosstalk’replacing previous import by ‘shiny::HTML’ when loading ‘crosstalk’replacing previous import by ‘shiny::h1’ when loading ‘crosstalk’replacing previous import by ‘shiny::h2’ when loading ‘crosstalk’replacing previous import by ‘shiny::h3’ when loading ‘crosstalk’replacing previous import by ‘shiny::h4’ when loading ‘crosstalk’replacing previous import by ‘shiny::h5’ when loading ‘crosstalk’replacing previous import by ‘shiny::h6’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagAppendChildren’ when loading ‘crosstalk’replacing previous import by ‘shiny::em’ when loading ‘crosstalk’replacing previous import by ‘shiny::div’ when loading ‘crosstalk’replacing previous import by ‘shiny::pre’ when loading ‘crosstalk’replacing previous import by ‘shiny::htmlTemplate’ when loading ‘crosstalk’replacing previous import by ‘shiny::suppressDependencies’ when loading ‘crosstalk’replacing previous import by ‘shiny::tagSetChildren’ when loading ‘crosstalk’replacing previous import by ‘shiny::includeText’ when loading ‘crosstalk’replacing previous import by ‘shiny::hr’ when loading ‘crosstalk’

Coolio Let’s look at where the podium finishers did compared to their team

top 20 movement

api_create(pplotly, filename = "WC top 20 box plot", sharing="public")

Found a grid already named: 'WC top 20 box plot Grid'. Since fileopt='overwrite', I'll try to update it

Let’s look at canada vs usa

Ok we need a joy plot